perm filename ACSHFT.F4[1,LCS]1 blob sn#080722 filedate 1974-01-10 generic text, type T, neo UTF8
00100		SUBROUTINE ACSHFT(RX)
00400		COMMON /XRN/RN(4000)
00500		COMMON /SC/J,L,MK,ISKP,XMINUS,N,IEXP,LK,NNUM,JJ,JA
00600		1,DBST,NFLG,IXX,ISEMI,IQT,VX(50),IAMP,K,KN,M,MODE,IBLA
00900		DIMENSION R(8,100)
01000		EQUIVALENCE (R,RN(3001))